home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR03 / 3QBFILES.ZIP / KOMBAT.BAS < prev    next >
BASIC Source File  |  1993-09-26  |  6KB  |  237 lines
  1. CLS
  2. 1 INPUT "Sorry, you need a password to play this game. ", password$
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113. 5 IF password$ = "wolf3d" THEN GOTO 7 ELSE END
  114. 7 PRINT ""
  115. 8 INPUT "Do you want Sound ON or OFF"; sound$
  116. CLS
  117. 9 PRINT ""
  118. 10 PRINT "                                  MORTAL KOMBAT"
  119. 20 PRINT ""
  120. 30 IF sound$ = "OFF" THEN PLAY "o3l4p4p4p4p4p4p4p4" ELSE PLAY "o2l2cabdeel1ep2o3l5cabdeel1e"
  121. 40 PRINT "Welcome to the Mortal Kombat tournament."
  122. 50 PRINT "This is a 2-Player game."
  123. 60 PRINT "Player#1 has a stronger offense."
  124. 70 PRINT "Player#2 has a stronger defense."
  125. 80 PRINT "They take turns punching and kicking each othher."
  126. 90 PRINT "Type capitol P to punch, and capitol K to kick."
  127. 100 PRINT "Keep on repeating until one player is in a swoon."
  128. 110 PRINT "Then the winning player will have a chance to Finish the losing"
  129. 120 PRINT "player."
  130. 130 PRINT ""
  131. 140 PLAY "l1p10"
  132. 150 PRINT "Here are the names of the characters you can be."
  133. 160 PLAY "o1l1p3"
  134. 170 PRINT "Johnny Cage"
  135. 180 PLAY "l1p3"
  136. 190 PRINT "Scorpion"
  137. 200 PLAY "l1p3"
  138. 210 PRINT "Sub-Zero"
  139. 220 PLAY "l1p3"
  140. 230 PRINT "Liu Kang"
  141. 240 PLAY "l1p3"
  142. 250 PRINT "Raiden"
  143. 260 PLAY "l1p3"
  144. 270 PRINT "Sonya"
  145. 280 PLAY "l1p3"
  146. 290 PRINT "Kano"
  147. 300 PLAY "l1p3"
  148. 310 PRINT ""
  149. 320 INPUT "Who is Player#1 "; name1$
  150. 330 INPUT "Who is Player#2 "; name2$
  151. 340 PRINT "Player 1, thank you for selecting "; name1$; "."
  152. 350 PRINT "Player 2, thank you for selecting "; name2$; "."
  153. 360 PLAY "l1p2p2p2p2"
  154. 370 PRINT ""
  155. 380 PRINT "                                "; name1$; "   VS.   "; name2$; "  "
  156. 390 IF sound$ = "OFF" THEN PLAY "o2l1p3p3p3p3p3p3p3p3" ELSE PLAY "o3l16aabbccddeeffggp7l2abcdcbadggfc"
  157. 391 life1 = 40
  158. 392 life2 = 50
  159. 400 PRINT ""
  160. 410 PRINT "It is "; name1$; "'s turn."
  161. 420 INPUT "Do you want to punch or kick your opponent "; atck$
  162. 430 IF atck$ = "P" THEN life2 = life2 - INT(RND * (9 - 3) + 3)
  163. 440 IF atck$ = "K" THEN life2 = life2 - INT(RND * (11 - 0) + 0)
  164. 450 IF life2 < 1 THEN GOTO 550
  165. 460 PRINT " "; name2$; " has "; life2; " life remaining."
  166. 470 PRINT ""
  167. 480 PRINT "It is "; name2$; "'s turn."
  168. 490 INPUT "Do you want to punch or kick your opponent "; atck$
  169. 500 IF atck$ = "P" THEN life1 = life1 - INT(RND * (7 - 2) + 2)
  170. 510 IF atck$ = "K" THEN life1 = life1 - INT(RND * (9 - 0) + 0)
  171. 520 IF life1 < 1 THEN GOTO 1050
  172. 530 PRINT " "; name1$; " has "; life1; " life remaining."
  173. 540 GOTO 400
  174. 550 PRINT ""
  175. 560 PRINT "                        FINISH HIM!!!   "
  176. 570 INPUT "Do you want to finish your opponent "; finish$
  177. 580 IF finish$ = "Yes" THEN GOTO 590 ELSE END
  178. 590 IF name1$ = "Johnny Cage" THEN GOTO 660
  179. 600 IF name1$ = "Scorpion" THEN GOTO 720
  180. 610 IF name1$ = "Sub-Zero" THEN GOTO 780
  181. 620 IF name1$ = "Liu Kang" THEN GOTO 830
  182. 630 IF name1$ = "Raiden" THEN GOTO 880
  183. 640 IF name1$ = "Sonya" THEN GOTO 950
  184. 650 IF name1$ = "Kano" THEN GOTO 1010
  185. 660 PRINT "And with that, Johnny Cage lowers his arm for the final"
  186. 670 PRINT "blow... a very powerful blow. Then he delivers an uppercut!"
  187. 680 PRINT "The uppercut has so much power that it literally knocks"
  188. 690 PRINT "his opponent's head off!! Blood sprays everywhere."
  189. 700 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  190. 710 END
  191. 720 PRINT "Suddenly, Scorpion tears off his mask. Now revealed, is a "
  192. 730 PRINT "hideous skull with burning red eyes. Then giant flames"
  193. 740 PRINT "fly from between his jaws, incinerating his opponent to a"
  194. 750 PRINT "charred black skeleton."
  195. 760 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  196. 770 END
  197. 780 PRINT "Suddenly, Sub-Zero grabs his opponent by the neck. Then he pulls,"
  198. 790 PRINT "hard. In result, his opponent's head is ripped off, with the"
  199. 800 PRINT "spine dangling down."
  200. 810 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  201. 820 END
  202. 830 PRINT "Liu Kang then gives his opponent a powerful scissor kick,"
  203. 840 PRINT "followed by the most pewerful uppercut seen yet, which knocks"
  204. 850 PRINT "his opponent into the air and then he lands, hard."
  205. 860 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  206. 870 END
  207. 880 PRINT "Then the thunder god extends his arms towards his opponent."
  208. 890 PRINT "Suddenly, electricity shoots out of his finger tips and wraps"
  209. 900 PRINT "around his opponent's head. With 90,000 volts running through"
  210. 910 PRINT "it, his opponent's head expands and explodes!! Blood is "
  211. 920 PRINT "everywhere."
  212. 930 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  213. 940 END
  214. 950 PRINT "Sonya looks as if she is going to blow her opponent a last kiss,"
  215. 960 PRINT "but instead a fireball escapes from her mouth! It does a loop in"
  216. 970 PRINT "the air, and then heads straight for her opponent. It hits its "
  217. 980 PRINT "mark, and her opponent is burned to a blackened skeleton!"
  218. 990 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  219. 1000 END
  220. 1010 PRINT "With one powerful stroke, Kano plunges his hand into his "
  221. 1020 PRINT "opponent's chest and pulls it out again, tearing out their heart!"
  222. 1030 IF sound$ <> "OFF" THEN PLAY "o1l1a"
  223. 1040 END
  224. 1050 PRINT ""
  225. 1060 PRINT "                           FINISH HIM!!"
  226. 1070 INPUT "Do you want to finish your opponent "; finish$
  227. 1080 IF finish$ = "Yes" THEN GOTO 1090 ELSE END
  228. 1090 IF name2$ = "Johnny Cage" THEN GOTO 660
  229. 1100 IF name2$ = "Scorpion" THEN GOTO 720
  230. 1110 IF name2$ = "Sub-Zero" THEN GOTO 780
  231. 1120 IF name2$ = "Liu Kang" THEN GOTO 830
  232. 1130 IF name2$ = "Raiden" THEN GOTO 880
  233. 1140 IF name2$ = "Sonya" THEN GOTO 950
  234. 1150 IF name2$ = "Kano" THEN GOTO 1010
  235. 1160 END
  236.  
  237.